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Open the Time Domain data file. 
Read the parameters, NumSets , NumPts 
Initiate Sum( ) and count to null 



Read Next Set of Data 
into tddata( ) 



Apply Manning Window 
tdwdata( )=Han (tddata( )) 



Calculated power Spectrum 
specdata( )=Spectrum (tdwdata( )) 



t 

Sum ( ) = Sum ( ) + specdata( ) 
count = count+1 




Yes 



spectrum( )=Sum( )/ count 
Store spectrum( ) in output 




FIG. 13 
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Divide the collected data into equal sets. Perform 
Harming Windowing , FFT on each set to obtain 
'Smoothed Periodogram' by averaging all the sets. 



Identify the fundamental supply component by locating the 
component having maximum amplitude in the stator current 
spectrum. Record its frequency (Fs ) and amplitude (FsAmp), 
Locate multiples of i^s (supply related components) 



Calculate synchronous speed of the motor, Fsync^ Fs /polepairs. 
Locate the slip frequency related components by searching between 
(mFs -2Fsimin) and {mFs -lOFsimax ) for m 3,5 and 7. 
^simax = ^sync * maximum slip 
_______ Fsinnn i^sync * minimum slip ^^^^^^ 



Calculate the slip from the above components. 
Locate Fs + F^ and record its amplitude FrAmp 
where F^ = Fgync * (I -slip) 



Search and locate the remaining 'slip frequency related' 
harmonics adjacent to other supply related components. 



Eliminate all the' slip frequency related' harmonics between Fs 12 and 3Fs /2 and 

measure the noise in the region. 
noise_l = {sum of noise between {(Fs - L -J) and (Fs - L)}+ {(Fg + L ) and (Fg + 

L+J)}] 

noise J =^ [sum of noise between {(Fs - L -J(i+1)) and (Fg - L-Ji)}+ {(Fs + L+Ji ) 

and (Fs + L+J(i+1))}] 
for i = 2 to 5, L=6*resolution, and J= Fs /lO 



Preprocess the attributes slip , FsAmp, SigAmp, 
Noise 1, Noise 2, Noise 3, Noise_4 and Noise 5 
to make them acceptable by the Neural Network 
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Scan the NORMAL data 

Derive generic limits 
gmaxi and gmi Hi for each 
attribute, i 



Omax, 


= gmaxi 


Omin, 


= gmini 



Get new input, datum 
Clip datum if outside hardjimits 



i. 

Rescale the database 
and listmemory 



Scale datum using Pmax and Pmin 



OmaXi = 


= Pmaxj 


Omirii = 


= Pmirii 



Add datum to the database 
Apply datum to the ALM to 
update the listmemory 




[j =datumi 



= datumj 



Pmaxi 


= OmaXi 


PmiHi 


= Ominj 



Fig. 20 
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